home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / 555.asc < prev    next >
Text File  |  1990-10-14  |  3KB  |  96 lines
  1. 10    CLS
  2. 20    PRINT"Time is in seconds...Resistance in ohms...and"
  3. 30    PRINT"Capacitance in uFd...100pF=.0001uFd."
  4. 40    PRINT
  5. 50    INPUT"Print answeres ";IN$:IN$=LEFT$(IN$,1)
  6. 60    IF IN$="Y" THEN PR=1
  7. 100   T1=15:T2=30:T3=45
  8. 120   PRINT"555 TIMER CALCULATIONS"
  9. 130   PRINT:PRINT
  10. 140   INPUT"Astable or Monostable or Exit ";IN$
  11. 150   IN$=LEFT$(IN$,1):IF IN$="E" OR IN$="e" OR IN$="" THEN STOP
  12. 160   IF IN$="M" OR IN$="m" THEN GOTO 580
  13. 170   IF IN$="A" OR IN$="a" THEN GOTO 190
  14. 180   GOTO 140
  15. 185   '
  16. 190   PRINT:INPUT"Frequency ";F
  17. 200   PRINT
  18. 220   PRINT
  19. 230   PRINT "0.  END"
  20. 240   PRINT "1.  FIND R2 / GIVEN R1=1000 & C1= USER ASSIGNED"
  21. 250   PRINT "2.  FIND C1 / GIVEN R1=1000 & R2= USER ASSINGED"
  22. 260   PRINT "3.  FIND C1 / GIVEN R1 & R2 BOTH  USER ASSIGNED"
  23. 270   PRINT "4.  FIND F  / GIVEN C1-R1-R2 ALL  USER ASSINGED"
  24. 280   PRINT
  25. 290   INPUT"CHOOSE: ";IN
  26. 300   PRINT
  27. 310   IF IN=0 THEN GOTO 50
  28. 315   ON IN GOSUB 330,390,450,510
  29. 320   GOTO 220
  30. 325   '
  31. 330   R1=1000
  32. 350   INPUT"C1 = ";C1
  33. 360   R2=(1.44/(F*C1/1000000!)-R1)/2
  34. 370   GOSUB 870
  35. 380   RETURN
  36. 385   '
  37. 390   R1=1000
  38. 410   INPUT"R2 = ";R2
  39. 420   C1=1.44/(F*(R1+2*R2))*1000000!
  40. 430   GOSUB 870
  41. 440   RETURN
  42. 445   '
  43. 450   INPUT"R1 = ";R1
  44. 470   INPUT"R2 = ";R2
  45. 480   C1=1.44/(F*(R1+2-R2))*1000000!
  46. 490   GOSUB 870
  47. 500   RETURN
  48. 505   '
  49. 510   INPUT"C1 = ";C1
  50. 530   INPUT"R1 = ";R1
  51. 540   INPUT"R2 = ";R2
  52. 545   '
  53. 550   PRINT:' IF PR=1 THEN (DO WHATEVER TO PRINT)
  54. 560   PRINT"NEW FREQ. WOULD BE: ";1.44/(C*.000001*(R1+2*R2));" Hz."
  55. 570   ' IF PR=1 THE ( DO WHATEVER TO PRINT)
  56. 575   '
  57. 580   PRINT
  58. 600   PRINT"0.  END"
  59. 610   PRINT"1.  FIND T / GIVEN A AND C"
  60. 620   PRINT"2.  FIND R / GIVEN T AND C"
  61. 630   PRINT"3.  FIND C / GIVEN R AND T"
  62. 640   PRINT
  63. 650   INPUT" CHOOSE: ";IN
  64. 660   PRINT
  65. 670   IF IN=0 THEN GOTO 50
  66. 675   ON IN GOSUB 720,770,820
  67. 680   PRINT:'IF PR=1 THEN (DO WHATEVER TO PRINT)
  68. 690   PRINT"C=";C1"uF";TAB(T1);"R=";R1"ohms";TAB(T3);"T=";T*100 "msec."
  69. 700   PRINT:'IF PR=1 THEN (DO WHATEVER TO UN PRINT)
  70. 710   GOTO 580
  71. 715   '
  72. 720   INPUT"R = ";R1
  73. 730   INPUT"C = ";C1
  74. 750   T=1.1*R1*C1*.000001
  75. 760   RETURN
  76. 765   '
  77. 770   INPUT"T = ";T
  78. 790   INPUT"C = ";C1
  79. 800   R1=T/1.1*C1*1000000!
  80. 810   RETURN
  81. 815   '
  82. 820   INPUT"R = ";R1
  83. 830   INPUT"T = ";T
  84. 850   C=T/1.1*R1*.000001
  85. 860   RETURN
  86. 865   '
  87. 870   PRINT:'IF PR=1 THEN (DO WHATEVER TO PRINT)
  88. 890   PRINT"F=";F"Hz";TAB(T1);"C1=";C1"uF";TAB(T2);
  89. 900   PRINT"R1=";R1"ohms";TAB(T3);"R2=";R2"ohms"
  90. 910   PRINT:'IF PR=1 THEN (DO WHATEVER TO UN PRINT)
  91. 920   RETURN
  92. 930   END
  93. 1000  REM   555 TIMER PROGRAM BY JEFF HOLTZMAN RADIO ELECTRONICS
  94. 1010  REM   1/86 P 9 OF COMPUTER SECTION. MOD'S BY BOB GROOME
  95. 1020  REM   ON 12/20/85 FOR OSE AND 7/2/86 FOR ATARI
  96.